  unit MainMdl;                                          
                                                              
interface                                                     
uses Classes, forms, SysUtils, patterns;                      
                                                              
type                                                          
  TModelMain = class(TObservable)                       
  public                                                      
    constructor Create;                                       
    destructor Destroy; override;                             
  end;                                                        
                                                              
                                                              
implementation                                                
                                                              
                                                              
constructor TModelMain.Create;                          
begin                                                         
end;                                                          
                                                              
destructor TModelMain.Destroy;                          
begin                                                         
  inherited;                                                  
end;                                                          
                                                              
                                                              
end.                                                          
 